home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / VIC20 / A-Monthly / (v)ae.d64 / pods.bas.cr (.txt) < prev   
Commodore BASIC  |  2007-02-24  |  8KB  |  177 lines
  1. 4 PRINTCHR$(142):D$="":FORI=1TO50:C$="[146]":IFI/2=INT(I/2)THENC$="
  2. 9 [153]"LOAD":[153]C$;D$;"(null)TANRIGHT$(null)TANRIGHT$ ORTANRIGHT$ (null)TANRIGHT$":[153]C$;D$;"(null) (null)(null) (null) (null) (null) (null)  ":[153]C$;D$;"-TAN(null)(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSEMID$TANRIGHT$":[153]C$;D$;"(null)  (null) (null) (null) (null)   (null)":[153]C$;D$;"(null)  MID$TAN(null) /TAN(null) MID$TAN(null)":[129]J[178]1[164]30:[130]:[130]:[134]GS$(20):BL$[178]"                     CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD
  3. 118 HL$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]":D1$=CHR$(16):D2$=CHR$(13):D3$=CHR$(14):D4$=CHR$(15):MS$="PLEASE WAIT...":E1$="[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219]":GOSUB2130:END::
  4. 150 P1$="":PX=0:PF=0
  5. 160 GETA$:PRINT" [157]";:IFA$=CHR$(13)ORA$=CHR$(20)ANDPX=0GOTO160
  6. 165 IFA$=CHR$(20)THENPX=PX-1:P1$=LEFT$(P1$,PX):PRINTA$;:GOTO160
  7. 170 FORD=1TO40:NEXT:PRINT"[146] [157]";A$;:IFA$=","THENP1=VAL(P1$):PF=2:
  8. 190 IFA$="."THENP1=VAL(P1$):PF=1:IFP1=0THENPF=3
  9. 200 IFPF<>0GOTO225
  10. 210 P1$=P1$+A$:IFA$<>""THENPX=PX+1
  11. 220 GOTO160
  12. 225 RETURN::
  13. 250 GETY1$:IFY1$<>"Y"ANDY1$<>"N"THEN250
  14. 260 YF=2:IFY1$="Y"THENYF=1
  15. 270 RETURN::
  16. 300 PRINT"[147]BACK TO MENU (Y/N) ?":GOSUB250:RETURN::
  17. 340 PRINT"":FORIA=1TOSL:PRINT"";:NEXT:PRINTBL$:RETURN::::
  18. 400 PRINT#4,D2$D2$D2$:ONC3GOTO460,970,470,970,480
  19. 460 PRINT#4,D3$"SUMMARY STATISTICS"D4$:GOTO490
  20. 470 PRINT#4,D3$"FREQUENCY HISTOGRAM"D4$:GOTO490
  21. 480 PRINT#4,D3$"BAR GRAPH"D4$:GOTO490
  22. 490 PRINT#4,D2$:RETURN::
  23. 510 I=1:J=1
  24. 530 IFPT%(I)=0GOTO680
  25. 540 IFPT%(I)>0THENONVAL(C3$)GOSUB1690,980,1180,980,980,840
  26. 600 IFPT%(I)<0THENONVAL(C3$)GOSUB1900,990,1280,990,1580,990
  27. 660 I=I+1:GOTO530
  28. 680 RETURN::
  29. 700 PRINT"[147]":FORX=1TONC:ME(X)=0:TT(X)=0:NU(X)=0:NEXT:M8=0:M1=9E-30:M2=9E3:RETURN::
  30. 770 FORX=1TONC:SS(X)=0:VA(X)=0:ST(X)=0:NEXT:RETURN::::
  31. 840 PRINTMS$:FORN=1TOND:IFOM%(PT%(I),N)=1GOTO920
  32. 880 IFMT(PT%(I),N)>M1THENM1=MT(PT%(I),N)
  33. 890 IFMT(PT%(I),N)<M2THENM2=MT(PT%(I),N)
  34. 900 TT(J)=TT(J)+MT(PT%(I),N):NU(J)=NU(J)+1
  35. 920 NEXT:IFPT%(I+1)<0THENME(J)=TT(J)/NU(J)
  36. 940 IFME(J)>M8THENM8=ME(J)
  37. 950 RETURN::
  38. 970 RETURN
  39. 980 I=I+1:RETURN
  40. 990 J=J+1:RETURN::::
  41. 1020 PRINT"VAR: ";VP$:PRINT"LEVEL: ";LP$(J);D2$:RETURN::
  42. 1070 PRINT"[147]HISTOGRAM":PRINTHL$:PRINT"GRAPH RANGE:":PRINTHL$:PRINT"MIN",M2:PRINT"MAX",M1:PRINT"USE THESE (Y/N)?":GOSUB250:IFYF=1GOTO1140
  43. 1120 INPUT"MIN. VALUE";M2:INPUT"MAX. VALUE";M1
  44. 1140 PRINT"":INPUT"NO. INTERVALS (<=20)";NI:I2=(M2-M1)/NI:RETURN::
  45. 1180 FORN=1TOND:IFOM%(PT%(I),N)=1GOTO1250
  46. 1210 Z1=INT((MT(PT%(I),N)-M1)/I2)+1:IFMT(PT%(I),N)>M1GOTO1250
  47. 1230 IFMT(PT%(I),N)<=M2GOTO1250
  48. 1240 GS$(Z1)=GS$(Z1)+"[166]
  49. 1250 [130]:[142]::
  50. 1280 [157]4:[141]1020:[152]4,D1$"20""FREQUENCY ":[152]4,D1$"200"D1$"3010"D1$"4020"D1$"5030"D1$"6040":[152]4,M1;">= ";D1$"20";"(null)";E1$:[129]K[178]1[164]NI:[152]4,D1$"20""+";GS$(K);[195](GS$(K)):[152]4,"> ";M1[170]K[172]I2;">= ";D1$"20""<":[130]:J[178]J[170]1:[152]4,D2$:[129]U[178]1[164]20:GS$(U)[178]"":[130]:[142]::
  51. 1410 [153]"LOADGRAPH RANGE :":[153]HL$:[153]"MIN",0:[153]"MAX",M8:[153]"USE THESE   (Y/N)":[141]250:[139]YF[178]1[137]1460
  52. 1450 [133]"NEW MAX";M8
  53. 1460 [142]::
  54. 1480 [152]4,"VARIABLE :":[152]4,VP$D2$D1$"35MEAN DATA VALUE":I2[178]M8[173]40:[152]4,D1$"35"I2[172]10D1$"55"I2[172]30:[152]4,D1$"25"0;D1$"35^"D1$"45"I2[172]20D1$"55^"D1$"65"I2[172]40:[152]4,"LEVEL :";
  55. 1550 [152]4,D1$"25(null)";E1$D2$:[142]::
  56. 1580 [152]4,LP$(J);D1$;"25+";:[139]ME(J)[178]0[167][152]4,ME(J):[137]1630
  57. 1610 [129]P[178]1[164]ME(J)[173]I2:[152]4,"SPC(";:[130]:[152]4,ME(J):[139]LI[178]0[137]1640
  58. 1630 [139][181](J[173]LI)[178]J[173]LI[167][141]1550
  59. 1640 J[178]J[170]1:[142]::::
  60. 1690 [153]"LOAD";MS$:[129]N[178]1[164]ND:[139]OM%(PT%(I),N)[178]1[137]1740
  61. 1720 A[178]MT(PT%(I),N)[171]ME(J):SS(J)[178]SS(J)[170](A[172]A)
  62. 1740 [130]:[139]PT%(I[170]1)[177]0[137]1790
  63. 1760 [139]NU(J)[178]1[167]VA(J)[178]0:[137]1780
  64. 1770 VA(J)[178]SS(J)[173](NU(J)[171]1)
  65. 1780 ST(J)[178][186](VA(J))
  66. 1790 [142]::
  67. 1810 [153]"LOADOUTPUT TO :":[153]HL$:[153]"1. SCREEN":[153]"2. PRINTER
  68. 1840 GETSO$:IFSO$<>"1"ANDSO$<>"2"GOTO1840
  69. 1850 IFSO$="1"THENPRINT"[147]":GOTO1880
  70. 1860 GOSUB400:PRINT#4,"VARIABLE :"D2$;VP$D2$"LEVEL :";:PRINT#4,D1$"20#OBS."D1$"28TOTAL"D1$"37MEAN"D1$"51VARIANCE"D1$"65STD. DEV.
  71. 1880 [142]::
  72. 1900 [145][197](SO$)[141]2010,1950:[142]::
  73. 1950 [152]4,LP$(J):[152]4,D1$"20"NU(J);D1$"28"TT(J);D1$"37"ME(J);D1$"51"VA(J);D1$"65"ST(J):J[178]J[170]1:[142]::
  74. 2010 [153]"LOAD":[141]1020:[153]HL$:[153]"TOTAL    ";TT(J):[153]"MEAN     ";ME(J):[153]"VARIANCE ";VA(J):[153]"STD DEV  ";ST(J):[153]"PRESS <RETURN>
  75. 2080 GETA$:IFA$<>CHR$(13)GOTO2080
  76. 2100 J=J+1:RETURN::
  77. 2130 PRINT"[147]":POKE214,3:PRINT:PRINT"PODS[146]":PRINT"  1.[146] DATA":PRINT"  2.[146] STATISTICS":PRINT"  3.[146] EXIT PRG.
  78. 2180 [161]C1$:[139][197](C1$)[179]1[176][197](C1$)[177]3[167]2180
  79. 2200 [145][197](C1$)[141]2250,2430:[139][197](C1$)[179][177]3[137]2130
  80. 2230 [142]::
  81. 2250 [143]
  82. 2260 [153]"LOAD":[151]214,3:[153]:[153]"      DATA WAIT":[153]"  1.WAIT  NEW":[153]"  2.WAIT  OLD":[153]"  3.WAIT  CHANGE":[153]"  4.WAIT  SAVE":[153]"  5.WAIT  GROUP DATA":[153]"  6.WAIT  MAIN MENU
  83. 2330 GETC2$:IFVAL(C2$)<1ORVAL(C2$)>6GOTO2330
  84. 2345 GOSUB300:IFYF=1THEN2260
  85. 2350 ONVAL(C2$)GOSUB2630,4190,3540,4190,3080:IFVAL(C2$)<>6GOTO2250
  86. 2410 RETURN::
  87. 2430 IFF1=0THENC3$="6":GOSUB700:GOSUB510:F1=1
  88. 2450 PRINT"[147]":POKE214,3:PRINT:PRINT"      STATISTICS[146]":PRINT"  1.[146] SUMMARY STATS":PRINT"  2.[146] ":PRINT"  3.[146] HISTOGRAM":PRINT"  4.[146] ":PRINT"  5.[146] BAR GRAPH":PRINT"  6.[146] MAIN MENU
  89. 2520 [161]C3$:[139][197](C3$)[179]1[176][197](C3$)[177]6[137]2520
  90. 2540 C3[178][197](C3$):[139]C3[178]1[167][159]4,4:[141]1810:[141]770:[141]510::[160]4
  91. 2560 [139]C3[178]2[167][141]970
  92. 2570 [139]C3[178]3[167][159]4,4:[141]1070:[141]400:[141]510:[160]4
  93. 2580 [139]C3[178]4[167][141]510
  94. 2590 [139]C3[178]5[167]:[141]1410:[159]4,4:[141]400:[141]1480:[141]510::[160]4
  95. 2600 [139][197](C3$)[179][177]6[137]2430
  96. 2610 [142]::
  97. 2630 [153]"LOADINPUT   NUMBER   OF   VARIABLES (<=5)":[133]NV:[134]LV$(NV),NL%(NV[170]1):[129]I[178]1[164]NV:[153]"LOADLABEL FOR VARIABLE ";I:[133]LV$(I):LV$(I)[178]LV$(I)[170]" ":[153]"HOW MANY LEVELS IN    VARIABLE ";LV$(I):[133]NL%(I):[139]MX[179]NL%(I)[167]MX[178]NL%(I)
  98. 2760 [130]:A[178]1:[129]I[178]1[164]NV:A[178]A[172]NL%(I):[130]:[134]LP$(A):[134]LL$(5,MX):[129]I[178]1[164]NV:[153]"LOAD VARIABLE ";LV$(I):[153]HL$:[129]J[178]1[164]NL%(I):[153]"LABEL FOR LEVEL ";J:[133]LL$(I,J):LL$(I,J)[178]LL$(I,J)[170]" ":[130]:[130]:[129]I[178]1[164]NV:L1%(I)[178]I:[130]:[141]5020:NC[178]1:[129]I[178]1[164]NV:NC[178]NC[172]NL%(I):[130]:[134]ME(NC),TT(NC),NU(NC),SS(NC),VA(NC),ST(NC)
  99. 2940 [153]" LOADHOW MANY DATA POINTS  PER CELL":[133]ND:[134]MT(NC,ND),PT%(NC[172]2[170]2),OM%(NC,ND):[129]I[178]1[164]NC:[153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$:[129]N[178]1[164]ND:[153]"DATA#";N;:[133]TM$:[139]TM$[178]"*"[167]OM%(I,N)[178]1[137]3030
  100. 3020 MT(I,N)[178][197](TM$)
  101. 3030 [139]N[173]15[178][181](N[173]15)[167][153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$
  102. 3040 [130]:[130]:[142]::
  103. 3080 [143]
  104. 3090 [153]"LOAD    VARIABLES":[153]HL$:[129]I[178]1[164]NV:[153]I;"CMD.";LV$(I):[130]:[153]HL$:[153]"INPUT VARIABLE ORDER.":[153]"INPUT   VARIABLE  NO. FOLLOWED BY A PERIOD.":[153]"INPUT '0.' FOR END.":[153]HL$:NG[178]1:I[178]1
  105. 3180 [153]:[153]"#";I;" ORDER  ";:[141]150:[145]PF[137]3184,3186,3200
  106. 3184 [139]I[177]NV[167][153]"LOADREGROUP DATA":[129]IA[178]1[164]250:[130]:[137]3090
  107. 3185 [137]3190
  108. 3186 [153]"ONON":[137]3180
  109. 3190 KY%(I)[178]P1:[139]NL%(KY%(I))[179][177]0[167]NG[178]NG[172]NL%(KY%(I))
  110. 3200 LI[178]NL%(KY%(I[171]1)):[139]PF[178]3[137]3220
  111. 3210 [139]I[179][178]NV[167]I[178]I[170]1:[137]3180
  112. 3220 CG[178]NC[173]NG:VP$[178]"":[129]I[178]1[164]5:VP$[178]VP$[170]LV$(KY%(I)):[130]
  113. 3250 [153]"LOADDATA GROUPING : ":[153]HL$:[153]"SEPERATE CELLS WITHIN GROUPS BY COMMA.":[153]"END  GROUPS   WITH    PERIODS.":[153]"END GROUPING WITH '0.'":[153]"YOU HAVE";NC;"CELLS.":[153]"YOU NEED";NG;"GROUPS":[153]"WITH";CG;"CELLS/GROUP.":[153]HL$:W[178]1:I[178]1:[153]"GROUP";W,
  114. 3320 [141]150:PT%(I)[178]P1:[145]PF[137]3350,3360,3370
  115. 3350 I[178]I[170]1:PT%(I)[178][171]9:W[178]W[170]1:[153]:[153]"GROUP";W,
  116. 3360 I[178]I[170]1:[139]I[177]NC[170]NG[170]1[167][153]"LOADREGROUP DATA":[129]Z[178]1[164]250:[130]:[137]3250
  117. 3365 [137]3320
  118. 3370 [153]"LOAD";MS$:[129]I[178]1[164]NV:L1%(I)[178]KY%(I):[130]:[141]5020:F1[178]0:[142]::
  119. 3540 [153]"LOAD":[153]"   1. CHANGE DATA":[153]"   2. CHANGE LABEL
  120. 3580 GETCF$:IFVAL(CF$)<>1ANDVAL(CF$)<>2GOTO3580
  121. 3590 ONVAL(CF$)GOSUB3630,3790:RETURN::
  122. 3630 PRINT"[147]1. SINGLE":PRINT"2. CONTINUOUS
  123. 3650 [161]SE$:[139]SE$[179][177]"1"[175]SE$[179][177]"2"[167][137]3650
  124. 3660 [133]"  START AT CELL...";S:[133]"  END AT CELL...";E:[139]E[177]NC[167]E[178]NC
  125. 3675 [129]I[178]1[164]NV:L1%(I)[178]I:[130]:[141]5020:[129]I[178]S[164]E:[153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$:[129]J[178]1[164]ND:[153]"DATA#";J,:[139]OM%(I,J)[178]1[167][153]:[137]3730
  126. 3720 [153]MT(I,J)
  127. 3730 [139][181](J[173]15)[178]J[173]15[167][141]3960:[153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$
  128. 3740 [130]:[139][181](J[173]15)[179][177]J[173]15[167][141]3960
  129. 3760 [130]:[142]::
  130. 3790 [153]"LOADVARIABLES":[153]HL$:J[178]0:[129]I[178]1[164]NV:[153]I;" ";LV$(I):[130]:[141]3960:[129]I[178]1[164]NV:[153]"LOADVARIABLE: ";LV$(I):[153]HL$:[129]J[178]1[164]NL%(I):[153]J;" ";LL$(I,J):[130]:[141]3960:[130]:[142]::::
  131. 3960 [143]
  132. 3970 SL[178]20:[141]340:[153]"CHANGE   (Y/N)":[141]250:[139]YF[178]2[167]4170
  133. 4010 SL[178]20:[141]340:[133]"WHICH ENTRY";EN:[139]EN[177]ND[167][137]3970
  134. 4020 SL[178]19:[141]340:[153]"ENTRY";EN:[139][197](CF$)[178]2[137]4110
  135. 4040 SL[178]20:[141]340:[133]"NEW VALUE";TM$:SL[178]19:[141]340:SL[178]20:[141]340:[139]TM$[178]"S"[167][137]4160
  136. 4060 [139]TM$[178]"*"[167]OM%(I,EN)[178]1:[137]4080
  137. 4070 MT(I,EN)[178][197](TM$):OM%(I,EN)[178]0
  138. 4080 [139]SE$[178]"2"[167]EN[178]EN[170]1:[139]EN[177]ND[167][137]4170
  139. 4090 [139]SE$[178]"2"[167][137]4020
  140. 4100 [137]4160
  141. 4110 [139]J[178]0[137]4140
  142. 4120 SL[178]20:[141]340:[133]"NEW LABEL";LL$(I,EN):LL$(I,EN)[178]LL$(I,EN)[170]" ":SL[178]20:[141]340:[137]4160
  143. 4140 SL[178]20:[141]340:[133]"NEW LABEL";LV$(EN):LV$(EN)[178]LV$(EN)[170]" ":SL[178]20:[141]340:[137]4160
  144. 4160 [141]3960
  145. 4170 [142]::
  146. 4190 [153]"LOAD1. TAPE":[153]"2. DISC
  147. 4210 GETA$:IFVAL(A$)<1ORVAL(A$)>2GOTO4210
  148. 4230 F2=0
  149. 4240 PRINT:INPUT"FILENAME";FL$:ONVAL(C2$)GOSUB970,4610,970,4320:IFF2=1THENGOTO4240
  150. 4300 RETURN::
  151. 4320 IFVAL(A$)=1GOTO4350
  152. 4340 IFVAL(A$)=2GOTO4360
  153. 4350 OPEN1,1,2,FL$:GOTO4390
  154. 4360 OPEN15,8,15:OPEN1,8,8,"0:"+FL$+",S,W":INPUT#15,A:IFA=63THENPRINT#15,"I":CLOSE1:CLOSE15:F2=1:GOTO4590
  155. 4390 PRINT#1,NV:FORI=1TONV:PRINT#1,LV$(I):PRINT#1,NL%(I):NEXT:FORI=1TONV:FORJ=1TONL%(I):PRINT#1,LL$(I,J):NEXT:NEXT:PRINT#1,NC:PRINT#1,ND:FORI=1TONC:FORN=1TOND:TM$=STR$(MT(I,N)):IFOM%(I,N)=1THENTM$="*
  156. 4540 [152]1,TM$:[130]:[130]:[160]1:[160]15:F2[178]0
  157. 4590 [142]::
  158. 4610 [139][197](A$)[178]1[137]4650
  159. 4630 [139][197](A$)[178]2[137]4660
  160. 4640 [153]"LOAD
  161. 4650 OPEN1,1,0,FL$:GOTO4690
  162. 4660 OPEN15,8,15:OPEN1,8,8,"0:"+FL$+",S,R":INPUT#15,A:IFA=62THENPRINT#15,"I":CLOSE1:CLOSE15:F2=1:GOTO5010
  163. 4690 INPUT#1,NV:DIMLV$(NV),NL%(NV+1):FORI=1TONV:INPUT#1,LV$(I):INPUT#1,NL%(I):IFMX<NL%(I)THENMX=NL%(I)
  164. 4750 NEXT:A=1:FORI=1TONV:A=A*NL%(I):NEXT:DIMLP$(A):DIMLL$(5,MX):FORK=1TO5:LL$(K,0)=" ":NEXT:FORI=1TONV:FORJ=1TONL%(I):INPUT#1,LL$(I,J):NEXT:NEXT:INPUT#1,NC:DIMME(NC),TT(NC),NU(NC),SS(NC),VA(NC),ST(NC):INPUT#1,ND:DIMMT(NC,ND),PT%(NC*2+1),OM%(NC,ND):FORI=1TONC:FORN=1TOND:INPUT#1,TM$:IFTM$="*"THENOM%(I,N)=1:GOTO4970
  165. 4960 MT(I,N)=VAL(TM$)
  166. 4970 NEXT:NEXT:CLOSE1:CLOSE15:F2=0
  167. 5010 RETURN::
  168. 5020 N=1:J=0:K=0:L=0:M=0:FORI=1TONL%(L1%(1)):IFNV>1THENFORJ=1TONL%(L1%(2))
  169. 5027 IFNV>2THENFORK=1TONL%(L1%(3))
  170. 5029 IFNV>3THENFORL=1TONL%(L1%(4))
  171. 5030 ::IFNV>4THENFORM=1TONL%(L1%(5))
  172. 5033 LP$(N)=LL$(L1%(1),I)+LL$(L1%(2),J)+LL$(L1%(3),K)+LL$(L1%(4),L)+LL$(L1%(5),M):N=N+1:IFNV>4THENNEXT
  173. 5039 IFNV>3THENNEXT
  174. 5041 IFNV>2THENNEXT
  175. 5043 IFNV>1THENNEXT
  176. 5045 NEXT:RETURN
  177.